Resultados Infecção
DT::datatable(output$tab1, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Quantidade"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(output$tab2)))
DT::datatable(output$tab2, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Soma Tempo Final"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(output$tab2)))
output$modelo_glm_vac%>%
mutate(nome=sub("status_vacinal.", "", nome))%>%
select(`Modelo`, `Vacina`, `nome`, `RR`, `95%lo`, `95%up`, `VE 95CI`)%>%
DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(.)))
output$faixa_etaria_output%>%
mutate(nome=sub("status_vacinal.", "", nome))%>%
select(`Modelo`, `Vacina`, `nome`, `Vacina`, `RR`, `95%lo`, `95%up`, `VE 95CI`, `Faixa Etária`)%>%
DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI", "Faixa Etária"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(.)))
output$az_cv_output%>%
mutate(nome = sub("nome_primeira_dose.", "", nome))%>%
DT::datatable(colnames=c("Modelo", "Vacina", "RR", "95%lo", "95%up", "VE 95CI"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(.)))
DT::datatable(output$person_time_output$n,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(output$person_time_output$n)))
DT::datatable(output$person_time_output$event,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, output$person_time_output$event))
DT::datatable(output$person_time_output$pyears, colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, output$person_time_output$pyears))
Resultados Internação
DT::datatable(output$tab1, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Quantidade"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(output$tab2)))
DT::datatable(output$tab2, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Soma Tempo Final"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(output$tab2)))
output$modelo_glm_vac%>%
mutate(nome=sub("status_vacinal.", "", nome))%>%
select(`Modelo`, `Vacina`, `nome`, `RR`, `95%lo`, `95%up`, `VE 95CI`)%>%
DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(.)))
output$faixa_etaria_output%>%
mutate(nome=sub("status_vacinal.", "", nome))%>%
select(`Modelo`, `Vacina`, `nome`, `Vacina`, `RR`, `95%lo`, `95%up`, `VE 95CI`, `Faixa Etária`)%>%
DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI", "Faixa Etária"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(.)))
output$az_cv_output%>%
mutate(nome = sub("nome_primeira_dose.", "", nome))%>%
DT::datatable(colnames=c("Modelo", "Vacina", "RR", "95%lo", "95%up", "VE 95CI"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(.)))
DT::datatable(output$person_time_output$n,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(output$person_time_output$n)))
DT::datatable(output$person_time_output$event,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, output$person_time_output$event))
DT::datatable(output$person_time_output$pyears, colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, output$person_time_output$pyears))
Resultados UTI
DT::datatable(output$tab1, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Quantidade"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(output$tab2)))
DT::datatable(output$tab2, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Soma Tempo Final"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(output$tab2)))
output$modelo_glm_vac%>%
mutate(nome=sub("status_vacinal.", "", nome))%>%
select(`Modelo`, `Vacina`, `nome`, `RR`, `95%lo`, `95%up`, `VE 95CI`)%>%
DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(.)))
output$faixa_etaria_output%>%
mutate(nome=sub("status_vacinal.", "", nome))%>%
select(`Modelo`, `Vacina`, `nome`, `Vacina`, `RR`, `95%lo`, `95%up`, `VE 95CI`, `Faixa Etária`)%>%
DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI", "Faixa Etária"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(.)))
output$az_cv_output%>%
mutate(nome = sub("nome_primeira_dose.", "", nome))%>%
DT::datatable(colnames=c("Modelo", "Vacina", "RR", "95%lo", "95%up", "VE 95CI"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(.)))
DT::datatable(output$person_time_output$n,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(output$person_time_output$n)))
DT::datatable(output$person_time_output$event,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, output$person_time_output$event))
DT::datatable(output$person_time_output$pyears, colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, output$person_time_output$pyears))
Resultados Morte
DT::datatable(output$tab1, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Quantidade"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(output$tab2)))
DT::datatable(output$tab2, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Soma Tempo Final"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(output$tab2)))
output$modelo_glm_vac%>%
mutate(nome=sub("status_vacinal.", "", nome))%>%
select(`Modelo`, `Vacina`, `nome`, `RR`, `95%lo`, `95%up`, `VE 95CI`)%>%
DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(.)))
output$faixa_etaria_output%>%
mutate(nome=sub("status_vacinal.", "", nome))%>%
select(`Modelo`, `Vacina`, `nome`, `Vacina`, `RR`, `95%lo`, `95%up`, `VE 95CI`, `Faixa Etária`)%>%
DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI", "Faixa Etária"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(.)))
output$az_cv_output%>%
mutate(nome = sub("nome_primeira_dose.", "", nome))%>%
DT::datatable(colnames=c("Modelo", "Vacina", "RR", "95%lo", "95%up", "VE 95CI"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(.)))
DT::datatable(output$person_time_output$n,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, pageLength = nrow(output$person_time_output$n)))
DT::datatable(output$person_time_output$event,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, output$person_time_output$event))
DT::datatable(output$person_time_output$pyears, colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"),
extensions = c('FixedColumns',"FixedHeader","Buttons"),
options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
scrollX = TRUE,
paging=TRUE,
fixedHeader=TRUE, output$person_time_output$pyears))